﻿Partial Public Class frmAdminDataMenu

    Private Sub btnChangeStatus_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnChangeStatus.Click
        Dim frm As New frmAdminManageCases
        frm.ShowDialog()
    End Sub



    Private Sub btnChangeProduct_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnChangeProduct.Click
        Dim frm As New frmAdminChangeProduct
        frm.ShowDialog()
    End Sub

   
    Private Sub btnAdminInactiveAccountManager_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnAdminInactiveAccountManager.Click
        Dim frm As New frmAdminInactiveAccountManagers
        frm.ShowDialog()
    End Sub

    Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub frmAdminDataMenu_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        GeneralTasks.ChangeTheme(Me)
        GeneralTasks.EnumerateandFill(Me.LogicalChildren)
    End Sub

    Private Sub btnEditEvents_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnEditEvents.Click
        Dim frm As New frmAdminEditEvent
        frm.Show()
    End Sub
End Class
